home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 3
/
003.d81
/
cover page
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
27 lines
5 ifa>.then55
6 poke56,128:clr:v=53248:s=54272:c2=56576
10 pokev+32,.:pokev+33,.:print"[147] [204][207][193][196][211][212][193][210] [206]umber #3"
15 print" [201]t was once said that if man was ":print
20 print"meant to fly he would have been born ":print
30 print"with wings. ":print: print" [215]e would like to disagree!!":print""
55 ifa=.thenprint"[158][204]oading [208]icture":a=1:load"cover.pic",8,1
56 ifa=1thena=2:load"cover.clb",8,1
57 ifa=2thena=3:load"cover.spr",8,1
58 ifa=4then100
60 s=54272:fori=.to23:pokes+i,.:next:pokes+24,15:pokes+5,255:pokes+6,255
65 pokes+12,255:pokes+13,255:pokes+19,255:pokes+20,255:pokes+1,3:pokes+8,3
70 pokes+15,3:pokes+7,7:pokes+14,18
75 poke56,128:clr:s=54272:v=53248:print"[145][156][208]ress space bar to view cover."
80 print"[208]ress it again to return to menu.":c2=56576
85 poke198,.:wait198,1:poke198,.:a=4:load"cover.cln",8,1
100 fori=.to7:pokev+i*2+1,51:pokev+i+39,7:readn,x:poke36856+i,n:pokev+i*2,x:next
101 data.,108,1,125,2,143,3,168,4,188,5,212,2,220,6,245
102 pokev+23,.:pokev+27,.:pokev+29,.
105 pokec2,149:pokev+17,59:pokev+22,24:pokev+24,56:pokev+21,255
110 pokes+4,17:pokes+11,17:pokes+18,17:poke198,.:wait198,1:poke198,.
115 pokev+21,.:pokec2,151:pokev+17,27:pokev+22,8:pokev+24,22
117 pokes+4,16:pokes+11,16:pokes+18,16:poke56,160:clr
120 print"[147][204]aunching [212]able of [195]ontents";
125 print"[144]load"chr$(34)"hello"chr$(34)",8":print"run":poke631,13:poke632,13
130 poke198,2:end